;   Programa de prueba para ver si anda mi desensamblador
;   Ale, hav29a@gmail.com

    list p=16f877a
    #include <p16f877a.inc>

    org 0h
    goto inicio

    org 10h
poronga:
    bsf STATUS, RP0
    bsf STATUS, RP1
    bcf STATUS, RP0
    bcf STATUS, RP1
    return

piringa:
    bsf STATUS, RP0
    bsf STATUS, RP1
    bcf STATUS, RP0
    bcf STATUS, RP1
    return

chuceta:
    movlw b'1000001'  ; 65
    call piringa
    movlw b'1101100'  ; 108
    call piringa
    movlw b'1100101'  ; 101
    call piringa
    return

inicio:
    call poronga
    call piringa
    call chuceta
    end
